object shblSimpleDirectory: TshblSimpleDirectory
  Left = 410
  Top = 324
  Width = 870
  Height = 640
  Caption = #1064#1072#1073#1083#1086#1085' '#1087#1088#1086#1089#1090#1086#1075#1086' '#1089#1087#1088#1072#1074#1086#1095#1085#1080#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 40
    Width = 862
    Height = 547
    Align = alClient
    ColumnDefValues.Title.TitleButton = True
    DataSource = dscReestr
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    SortLocal = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    OnTitleBtnClick = DBGridEh1TitleBtnClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 587
    Width = 862
    Height = 19
    Panels = <
      item
        Width = 100
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 862
    Height = 40
    ButtonHeight = 38
    ButtonWidth = 39
    Caption = 'ToolBar1'
    Flat = True
    Images = MainForm.ImageList1
    TabOrder = 2
    object DBNavigator1: TDBNavigator
      Left = 0
      Top = 0
      Width = 228
      Height = 38
      DataSource = dscReestr
      VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
      Flat = True
      Hints.Strings = (
        'First record'
        'Prior record'
        'Next record'
        'Last record'
        #1053#1086#1074#1072#1103' '#1079#1072#1087#1080#1089#1100
        #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
        #1048#1079#1084#1077#1085#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
        #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
        #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
        #1054#1073#1085#1086#1074#1080#1090#1100' '#1076#1072#1085#1085#1099#1077)
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object ToolButton6: TToolButton
      Left = 228
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 236
      Top = 0
      Action = aExcelExport
    end
  end
  object dsReestr: TpFIBDataSet
    AutoUpdateOptions.WhenGetGenID = wgBeforePost
    Transaction = trReestr
    Database = MAINDM.MainDB
    UpdateTransaction = MAINDM.MainTransaction
    AutoCommit = True
    OnEndScroll = dsReestrEndScroll
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 38
    Top = 132
  end
  object XLSExportFile: TXLSExportFile
    Left = 36
    Top = 167
  end
  object SaveXLSDialog: TSaveDialog
    DefaultExt = 'xls'
    Filter = #1060#1072#1081#1083#1099' Excel (*.xls)|*.xls'
    Title = #1042#1099#1073#1086#1088' '#1092#1072#1081#1083#1072' '#1076#1083#1103' '#1074#1099#1075#1088#1091#1079#1082#1080' '#1076#1072#1085#1085#1099#1093
    Left = 36
    Top = 199
  end
  object XLSExportDBGridEh: TXLSExportDBGridEh
    XLSExportFile = XLSExportFile
    DBGridEh = DBGridEh1
    Options = [eoptVisibleOnly]
    Left = 68
    Top = 167
  end
  object dscReestr: TDataSource
    DataSet = dsReestr
    Left = 68
    Top = 132
  end
  object trReestr: TpFIBTransaction
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 98
    Top = 132
  end
  object PropStorageEh1: TPropStorageEh
    StorageManager = MainForm.IniPropStorageManEh1
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState')
    Left = 144
    Top = 130
  end
  object ActionList1: TActionList
    Images = MainForm.ImageList1
    Left = 38
    Top = 96
    object aExcelExport: TAction
      Caption = #1069#1082#1089#1087#1086#1088#1090' '#1074' MS Excel'
      Hint = #1069#1082#1089#1087#1086#1088#1090#1080#1088#1086#1074#1072#1090#1100' '#1076#1072#1085#1085#1099#1077' '#1080#1079' '#1090#1072#1073#1083#1080#1094#1099' '#1074' MS Excel'
      ImageIndex = 24
      ShortCut = 16453
      OnExecute = aExcelExportExecute
    end
  end
end
